local t = Def.ActorFrame {};
t[#t+1] = Def.ActorFrame{
	Def.Sprite{ -- fc badge
			InitCommand=cmd(y,45;x,-40;zoom,0.40;diffusealpha,0.6;);
			OnCommand=cmd(playcommand,"Set");
			CurrentStepsP1ChangedMessageCommand=cmd(playcommand,"Set");
			CurrentSongChangedMessageCommand=cmd(playcommand,"Set");
			PlayerJoinedMessageCommand=cmd(playcommand,"Set");
			ChangedLanguageDisplayMessageCommand=cmd(playcommand,"Set");
			SetCommand=function(self)
				local steps = GAMESTATE:GetCurrentSteps(PLAYER_1)
				local song = GAMESTATE:GetCurrentSong();
				if song then
					if steps ~= nil then
						local score = PROFILEMAN:GetProfile(PLAYER_1):GetHighScoreList(song,steps):GetHighScores()
						local getscore = score[1]
						if getscore then
							local showbadge = getscore:GetStageAward()
							local goods = getscore:GetTapNoteScore('TapNoteScore_W4')
							local faults = getscore:GetTapNoteScore('TapNoteScore_W5') 
							local breaks = getscore:GetTapNoteScore('TapNoteScore_Miss')
							if showbadge == "StageAward_FullComboW1" then
								showaward = THEME:GetPathB("", "ScreenEvaluation underlay/_w1badge.png")
							elseif showbadge == "StageAward_FullComboW2" or showbadge == "StageAward_SingleDigitW2" or showbadge == "StageAward_OneW2" then
								showaward = THEME:GetPathB("", "ScreenEvaluation underlay/_w2badge.png")
							elseif showbadge == "StageAward_FullComboW3" or showbadge == "StageAward_SingleDigitW3" or showbadge == "StageAward_OneW3" then
								showaward = THEME:GetPathB("", "ScreenEvaluation underlay/_w3badge.png")
							elseif showbadge == nil and goods >= 1 and faults == 0 and breaks == 0 then
								showaward = THEME:GetPathB("", "ScreenEvaluation underlay/_w4badge.png")
							else
								showaward = nil
							end
						else
							showaward = nil
						end
						self:visible(true)
						self:Load(showaward)
					end
				else
					self:visible(false)
				end
			end
	};
	Def.Sprite{ -- grade
			InitCommand=cmd(y,45;x,-40;zoom,0.40;);
			OnCommand=cmd(playcommand,"Set");
			CurrentStepsP1ChangedMessageCommand=cmd(playcommand,"Set");
			CurrentSongChangedMessageCommand=cmd(playcommand,"Set");
			PlayerJoinedMessageCommand=cmd(playcommand,"Set");
			ChangedLanguageDisplayMessageCommand=cmd(playcommand,"Set");
			SetCommand=function(self)
				local steps = GAMESTATE:GetCurrentSteps(PLAYER_1)
				local song = GAMESTATE:GetCurrentSong();
				if song then
					if steps ~= nil then
						local score = PROFILEMAN:GetProfile(PLAYER_1):GetHighScoreList(song,steps):GetHighScores()
						local getscore = score[1]
						if getscore then
							local showscore = getscore:GetGrade()
							if showscore then
								grade = showscore
							else
								grade = nil
							end
						else
							grade = nil
						end
						if grade ~= nil then
							self:Load(THEME:GetPathG("","GradeDisplay Grade " .. grade))
							self:visible(true)
						else
							self:visible(false)
						end
					end
				else
					self:visible(false)
				end
			end
	};
};
return t